$dialog select title "Выбор типа слоя для подлета" text "Растровые<raster>|Снимки<image>|Вектора<vector>|2D Объекты<sprite>|Экземпляры 3D объектов<mesh>|Дороги<road>|Дома<house>|Трубы<pipe>" ok "Выбрать"
!ltype = select

!ifdef ltype
	$layers !ltype info
	!layerlist = name
        !ifdef layerlist
		$dialog select sort title "Выбор слоя" text !layerlist ok "Подлететь"
		!layername = select
                !ifdef layername
                	$layer fly lname !layername
		!delete layername
		!endif // layername
	!delete layerlist
	!endif // layerlist
!delete ltype
!endif // ltype
